load("XSTSF_production.RData")
source('functions.R')
f0_all_ct <- f0_all_pre %>% filter(focus_condition == 'ct' ) %>%
group_by(speaker) %>%
mutate(norm_f0 = scale(log(f0))) %>%
ungroup()
f0_tri_ct <- f0_all_ct %>% filter(diortri == 'tri')
unique(f0_tri_ct$syntax)
## [1] "1+2MH" "1+2VO" "2+1VL" "2+1LL"
f0_tri_ct_12mh <- f0_tri_ct %>% filter(syntax == '1+2MH')
f0_tri_ct_12vo <- f0_tri_ct %>% filter(syntax == '1+2VO')
f0_tri_ct_21vl <- f0_tri_ct %>% filter(syntax == '2+1VL')
f0_tri_ct_21ll <- f0_tri_ct %>% filter(syntax == '2+1LL')
1+2MH
unique(f0_tri_ct_12mh$hist_tone1)
## [1] "yinshang" "yangshang" "yinping"
# yinping-initial VO
f0_tri_ct_12mh_hp <- f0_tri_ct_12mh %>% filter(hist_tone1 == 'yinping')
ggplotly(draw_by(f0_tri_ct_12mh_hp, 'speaker'), tooltip = c('text', 'x'))
# yinshang-initial VO
f0_tri_ct_12mh_hs <- f0_tri_ct_12mh %>% filter(hist_tone1 == 'yinshang')
ggplotly(draw_by(f0_tri_ct_12mh_hs, 'speaker'), tooltip = c('text', 'x'))
# yangshang-initial VO
f0_tri_ct_12mh_ls <- f0_tri_ct_12mh %>% filter(hist_tone1 == 'yangshang')
ggplotly(draw_by(f0_tri_ct_12mh_ls, 'speaker'), tooltip = c('text', 'x'))
1+2VO
unique(f0_tri_ct_12vo$hist_tone1)
## [1] "yinshang" "yangshang"
# yinshang-initial VO
f0_tri_ct_12vo_hs <- f0_tri_ct_12vo %>% filter(hist_tone1 == 'yinshang')
ggplotly(draw_by(f0_tri_ct_12vo_hs, 'speaker'), tooltip = c('text', 'x'))
# yangshang-initial VO
f0_tri_ct_12vo_ls <- f0_tri_ct_12vo %>% filter(hist_tone1 == 'yangshang')
ggplotly(draw_by(f0_tri_ct_12vo_ls, 'speaker'), tooltip = c('text', 'x'))
2+1VL
unique(f0_tri_ct_21vl$hist_tone1)
## [1] "yangqu" "yinping" "yangshang"
# yinping-initial VO
f0_tri_ct_21vl_hp <- f0_tri_ct_21vl %>% filter(hist_tone1 == 'yinping')
ggplotly(draw_by(f0_tri_ct_21vl_hp, 'speaker'), tooltip = c('text', 'x'))
# yangshang-initial VO
f0_tri_ct_21vl_ls <- f0_tri_ct_21vl %>% filter(hist_tone1 == 'yangshang')
ggplotly(draw_by(f0_tri_ct_21vl_ls, 'speaker'), tooltip = c('text', 'x'))
# yangqu-initial VO
f0_tri_ct_21vl_lq <- f0_tri_ct_21vl %>% filter(hist_tone1 == 'yangshang')
ggplotly(draw_by(f0_tri_ct_21vl_lq, 'speaker'), tooltip = c('text', 'x'))
2+1LL
unique(f0_tri_ct_21ll$hist_tone1)
## [1] "yinping" "yinshang" "yangping"
# yinping-initial VO
f0_tri_ct_21ll_hp <- f0_tri_ct_21ll %>% filter(hist_tone1 == 'yinping')
ggplotly(draw_by(f0_tri_ct_21ll_hp, 'speaker'), tooltip = c('text', 'x'))
# yinshang-initial VO
f0_tri_ct_21ll_hs <- f0_tri_ct_21ll %>% filter(hist_tone1 == 'yinshang')
ggplotly(draw_by(f0_tri_ct_21ll_hs, 'speaker'), tooltip = c('text', 'x'))
# yangping-initial VO
f0_tri_ct_21ll_lp <- f0_tri_ct_21ll %>% filter(hist_tone1 == 'yangping')
ggplotly(draw_by(f0_tri_ct_21ll_lp, 'speaker'), tooltip = c('text', 'x'))